home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / drdobbs / 1989 / 03 / examroom.lst < prev    next >
File List  |  1989-02-10  |  11KB  |  363 lines
  1. _EXAMINING ROOM - THE PORTABILITIY DREAM_
  2. by Margaret Johnson
  3.  
  4.  
  5. [LISTING ONE]
  6.  
  7. /**********************************************************************
  8.  XVT "Hello World"
  9.  **********************************************************************/
  10. #include "xvt.h"                     /* standard XVT header */
  11. #include "xvtmenu.h"                 /* standard XVT menu tags */
  12.  
  13.  
  14. /*
  15.        Required application setup structure.
  16. */
  17. APPL_SETUP appl_setup = {              
  18.         0,                /* menu bar resource ID (use default) */
  19.         0,                /* about box resource ID (use default) */
  20.         "Hello World!",   /* application's name */
  21.         W_DOC,            /* type of initial window */
  22.         TRUE,             /* size box on initial window? */
  23.         FALSE,            /* vert. scroll bar on initial window? */
  24.         FALSE,            /* horz. scroll bar on initial window? */
  25.         TRUE,             /* close box on initial window? */
  26.         FALSE,            /* want std. font menu? (includes sizes) */
  27.         FALSE             /* want std. style menu? */
  28. };
  29. /*********************************************************************
  30.  *       Main application entry point.
  31.  *********************************************************************/
  32. void main_event(win, ep)
  33. WINDOW win;
  34. EVENT *ep;
  35.  
  36. { RCT  rct;
  37.  
  38.   switch(ep->type)
  39.    {
  40.     case E_UPDATE:
  41.         get_client_rect(win,&rct);
  42.         set_pen(&white_pen);
  43.         draw_rect(&rct);
  44.         draw_text(10,100, "Hello World!", -1);
  45.         break;
  46.     case E_COMMAND:
  47.         if (ep->v.cmd.tag == M_FILE_QUIT)
  48.            terminate();
  49.         break;
  50.     case E_CLOSE:
  51.         terminate();
  52.         break;
  53.     case E_QUIT:
  54.         if (ep->v.query)
  55.               quit_OK();
  56.         else
  57.               terminate();
  58.         break;
  59.     }
  60. }
  61.  
  62. /***********************************************************************
  63.  *      Application cleanup.  Nothing to do.
  64.  ***********************************************************************/
  65. void appl_cleanup()
  66. {
  67. }
  68. /**********************************************************************
  69.  *       Application initialization.
  70.  **********************************************************************/
  71. BOOLEAN appl_init()
  72. {
  73.  return(TRUE);
  74. }
  75.  
  76. [LISTING TWO]
  77.  
  78. /***********************************************************************
  79.  * Mac "Hello World"
  80.  ***********************************************************************/
  81. #include <QuickDraw.h>
  82. #include <WindowMgr.h>
  83. #include <ControlMgr.h>
  84. #include <EventMgr.h>
  85. #include <DeskMgr.h>
  86. #include <MenuMgr.h>
  87.  
  88. GrafPtr       w_port;
  89. Rect          drag_rect, grow_bounds;
  90. WindowRecord  w_record;      /* storage for a window's information */
  91. WindowPtr     hello_window; /* a pointer to that storage */
  92.  
  93. #define  mk_long(x)  (*((long *)&(x)))
  94.  
  95. main()
  96. {
  97.  init_process();            /* do all the initialization */
  98.  make_window();
  99.  event_loop();
  100. }
  101.  
  102. /**********************************************************************/
  103.  init_process()
  104.  {
  105.   init_mgrs();
  106.   set_parameters();
  107.  }
  108.  
  109. /**********************************************************************/
  110. init_mgrs()
  111. {
  112.  InitGraf(&thePort);
  113.  InitFonts();
  114.  FlushEvents(everyEvent,0);
  115.  InitWindows();
  116.  InitCursor();
  117. } 
  118. /**********************************************************************/
  119. set_parameters()
  120. {
  121.  drag_rect = thePort->portRect;
  122.  SetRect(&grow_bounds, 64, 64, thePort->portRect.right, 
  123.          thePort->portRect.bottom);
  124. }
  125. /**********************************************************************/
  126. make_window()
  127. {
  128.  hello_window = GetNewWindow(128,&w_record,-1L);  
  129. }
  130. /**********************************************************************/
  131. event_loop()
  132. {
  133.  EventRecord event;
  134.  
  135.  while (1)
  136.    {SystemTask();
  137.     GetNextEvent(everyEvent, &event);
  138.     switch(event.what)
  139.        {
  140.         case mouseDown:
  141.             do_mouse_down(&event);
  142.             break;
  143.             
  144.         case updateEvt:
  145.             do_update(&event);
  146.             break;
  147.             
  148.         case activateEvt:
  149.             do_activate(&event);
  150.             break;
  151.             
  152.         default:
  153.             break;
  154.        }
  155.    }
  156. }
  157. /**********************************************************************/
  158. do_mouse_down(eventp)
  159.    EventRecord *eventp;
  160.  {
  161.    WindowPtr  mouse_window;
  162.    
  163.    switch(FindWindow(mk_long(eventp->where),&mouse_window))
  164.       {
  165.        case inContent:
  166.           if (mouse_window != FrontWindow())
  167.              SelectWindow(mouse_window);
  168.           break;
  169.           
  170.        case inDrag:
  171.           DragWindow(mouse_window, mk_long(eventp->where),&drag_rect);
  172.           break;
  173.           
  174.        case inGrow:
  175.           grow_window(mouse_window, mk_long(eventp->where), &drag_rect);
  176.           break;
  177.           
  178.        case inGoAway:
  179.           if (TrackGoAway(mouse_window,mk_long(eventp->where)))
  180.               finish();
  181.           break;
  182.           
  183.        default:
  184.           break;
  185.        }
  186.   }
  187. /**********************************************************************/  
  188. do_update(event)
  189.   EventRecord  *event;
  190. {
  191.  GrafPtr   save_graf;
  192.  WindowPtr update_window;
  193.  
  194.  if (FindWindow(mk_long(event->where),&update_window) != inSysWindow)
  195.     {if (update_window == hello_window)
  196.         {GetPort(&save_graf);
  197.          SetPort(update_window);
  198.          BeginUpdate(update_window);
  199.          ClipRect(&update_window->portRect);
  200.          EraseRect(&update_window->portRect);
  201.          DrawGrowIcon(update_window);
  202.          draw_content(update_window);
  203.          EndUpdate(update_window);
  204.          SetPort(save_graf);
  205.         }
  206.      }
  207. }
  208. /**********************************************************************/
  209. do_activate(event)
  210.   EventRecord  *event;
  211. {
  212.  WindowPtr event_window = (WindowPtr)event->message;
  213.  if (event_window == hello_window)
  214.     {DrawGrowIcon(event_window);
  215.      if (event->modifiers & 1)
  216.         SetPort(event_window);
  217.     }
  218. }
  219. /**********************************************************************/
  220. grow_window(window,mouse_point)
  221.   WindowPtr window;
  222.   Point     mouse_point;
  223. {
  224.  long new_bounds;
  225.  
  226.  inval_bars(window);
  227.  new_bounds = GrowWindow(window, mk_long(mouse_point),&grow_bounds);
  228.  if (0 == new_bounds)
  229.    return;
  230.  SizeWindow(window,LoWord(new_bounds),HiWord(new_bounds),TRUE);
  231.  inval_bars(window);
  232. }
  233. /**********************************************************************/
  234. inval_bars(window)
  235.   WindowPtr  window;
  236. {
  237.  Rect temp_rect, port_rect;
  238.  
  239.  port_rect = window->portRect;
  240.  SetRect(&temp_rect,port_rect.left,port_rect.bottom-16,port_rect.right,port_rect.bottom);
  241.  InvalRect(&temp_rect);
  242.  SetRect(&temp_rect,port_rect.right-16,port_rect.top,port_rect.right,port_rect.bottom);
  243.  InvalRect(&temp_rect);
  244. }
  245. /**********************************************************************/
  246. draw_content(window)
  247.   WindowPtr window;
  248. {
  249.  MoveTo(100,100);
  250.  DrawString("\pHello World!");
  251. }
  252. /**********************************************************************/
  253. finish()
  254. {
  255.  exit(0);
  256. } 
  257.  
  258. [LISTING THREE]
  259.  
  260. #include <windows.h>
  261. #include "hello.h"
  262.  
  263. BOOL NEAR       Initialize( HANDLE hInst, HANDLE hPrevInst, int nCmdShow );
  264. long FAR PASCAL WndProc   ( HWND hWnd, WORD wMessage, WORD wParam, LONG lParam);
  265. static char  szClass[40];
  266. static char  szTitle[40];
  267.  
  268.  int PASCAL WinMain( hInst, hPrevInst, lpszCmdLine, nCmdShow )
  269.    HANDLE      hInst;              /* Our instance handle */
  270.    HANDLE      hPrevInst;          /* Previous instance of this application */
  271.    LPSTR       lpszCmdLine;        /* Pointer to any command line params */
  272.    int         nCmdShow;           /* Parameter to use for first ShowWindow */
  273.    {
  274.     MSG        msg;                /* Message structure */
  275.  
  276.     if( ! Initialize( hInst, hPrevInst, nCmdShow ) )
  277.         return FALSE;
  278.  
  279.      while( GetMessage( &msg, NULL, 0, 0 ) ) {
  280.          TranslateMessage( &msg );
  281.          DispatchMessage( &msg );
  282.         }
  283.  
  284.     return msg.wParam;
  285.    }
  286. /************************************************************************
  287.       Initialize the application.
  288.       Returns TRUE if initialization succeeded, FALSE if failed.
  289.  ************************************************************************/
  290.  BOOL NEAR Initialize( hInst, hPrevInst, nCmdShow )
  291.    HANDLE      hInst;        /* Our Instance handle */
  292.    HANDLE      hPrevInst;    /* Previous instance handle, 0 if first */
  293.    int         nCmdShow;     /* Parameter from WinMain for ShowWindow */
  294.    {
  295.     WNDCLASS    WndClass;    /* Class structure for RegisterClass */
  296.     HWND        hWnd;        /* The window handle */
  297.     HMENU       hMenu;       /* Handle to the (system) menu */
  298.  
  299.     if( ! hPrevInst )
  300.        {
  301.          LoadString( hInst, IDS_CLASS,    szClass,    sizeof(szClass) );
  302.          LoadString( hInst, IDS_TITLE,    szTitle,    sizeof(szTitle) );
  303.          WndClass.style          = CS_HREDRAW | CS_VREDRAW;
  304.          WndClass.lpfnWndProc    = WndProc;
  305.          WndClass.cbClsExtra     = 0;
  306.          WndClass.cbWndExtra     = 0;
  307.          WndClass.hInstance      = hInst;
  308.          WndClass.hIcon          = LoadIcon( NULL, IDI_APPLICATION );
  309.          WndClass.hCursor        = LoadCursor( NULL, IDC_ARROW );
  310.          WndClass.hbrBackground  = GetStockObject(WHITE_BRUSH);
  311.          WndClass.lpszMenuName   = NULL;
  312.          WndClass.lpszClassName  = szClass;
  313.  
  314.          if( ! RegisterClass( &WndClass ) )
  315.               return FALSE;
  316.        }
  317.     else
  318.        {
  319.          GetInstanceData(hPrevInst, szClass, sizeof(szClass));
  320.          GetInstanceData(hPrevInst, szTitle, sizeof(szTitle));
  321.        }
  322.     hWnd = CreateWindow(
  323.          szClass,          /* Class name */
  324.          szTitle,          /* Window title */
  325.          WS_OVERLAPPEDWINDOW,  /* window style */
  326.          CW_USEDEFAULT,    /* x */
  327.          0,                /* y */
  328.          CW_USEDEFAULT,    /* x width */
  329.          0,                /* y width */
  330.          NULL,             /* Parent hWnd (none for top-level) */
  331.          NULL,             /* Menu handle */
  332.          hInst,            /* Owning instance handle */
  333.          NULL              /* Parameter to pass in WM_CREATE (none) */
  334.      );
  335.     ShowWindow( hWnd, nCmdShow );
  336.     UpdateWindow( hWnd );
  337.  
  338.     return TRUE;
  339.    }
  340. /***********************************************************************
  341.  Process the messages
  342. ***********************************************************************/
  343.  long FAR PASCAL WndProc(hWnd, wMessage, wParam, lParam)
  344.   HWND hWnd;
  345.   WORD wMessage, wParam;
  346.   LONG lParam;
  347.  
  348.   {PAINTSTRUCT  ps;
  349.  
  350.    switch (wMessage)
  351.     {case WM_PAINT:
  352.        BeginPaint(hWnd,&ps);
  353.        TextOut(ps.hdc,10,100,"Hello World!",12);
  354.        EndPaint(hWnd,&ps);
  355.        break;
  356.      default:
  357.        return DefWindowProc( hWnd, wMessage, wParam, lParam );
  358.        break;
  359.     }
  360.    return 0L;
  361.   }
  362.  
  363.